home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / seccheck.lha / Sec.REXX < prev   
OS/2 REXX Batch file  |  1994-09-09  |  642b  |  31 lines
  1. /* Security Check v1.01 */
  2. options results
  3.  
  4. tr='transmit';cr='center';ss='sendstring';gs='getuser';pr='prompt'
  5. cchance = 30 /* Chance in % that the user wil be checked */
  6.  
  7. kc= cchance / 5
  8. dv = random(1,20,time(s))
  9. if dv >= kc then signal quit
  10.  
  11. gs 9;voice=result
  12. check=right(voice,4)
  13. tr 'f1'
  14. tr 'c2SecurityCheck v1.01 by Wolverine '
  15. tr ''
  16. pr 4 hide '"Enter the four(c14c2) last digits of your c1VOICEc2number : "' 
  17. ans=result
  18.  
  19. if ans = check then signal QUIT
  20.  
  21. WRONG:
  22. tr''
  23. tr 'Wrong number...please call back and try again.....'
  24. logentry 'c5Failed the SecurityChech'
  25. DROPCARRIER
  26. exit
  27.  
  28. QUIT:
  29. logentry 'c4Cleared in a SecurityCheck'
  30. exit
  31.